disc.plot <- estimates_disc %>% mutate(sig = factor(2*as.numeric(diff - 1.96*se > 0) +  
                                                  1*as.numeric(diff + 1.96*se < 0), 
 c(0,1,2), c("Not Significant", 
             "More Discriminating in English (p<.05)", 
             "More Discriminating in Spanish (p<.05)"))) %>%
 mutate(item = as.factor(item)) %>%
 filter(diff != 0) %>%
 filter(model != "Immigration Opinion (NRM)") %>%
 ggplot(aes(x = item,
            y = diff, group = model,
            shape = sig)) +
 geom_pointrange(aes(ymin = diff - 1.96*se,
                     ymax = diff + 1.96*se)) +
 coord_flip() + 
 theme_ipsum_rc() + 
 scale_fill_manual(values=c("#F3F3F3", "#999999", "#333333")) + 
 theme(legend.position = "bottom", axis.text.y = element_blank()) +
 #theme(panel.grid.minor = element_blank(), panel.grid.major = element_blank())  +
 facet_wrap(. ~ model, scales = "free") +
 #theme(axis.text.y = element_blank(), axis.text.x = element_blank()) +
 labs(x = "", fill = "", y = "Difference in Discrimination Parameter",
      shape = "") +
 geom_hline(yintercept = 0)

disc.plot